#!
use strict;
my %Authors;
$Authors{'hello'} = "Tom";
$Authors{'hi'} = "John";
$Authors{'ni hao'} = "Mary";
print join ("\n",%Authors);